home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / text / tex / tpp410en.lha / Install_E < prev    next >
Text File  |  1993-01-17  |  7KB  |  337 lines
  1. ;       $VER: Installation TPP V4.10E (17.01.93)
  2.  
  3. .BRA {
  4. .KET }
  5.  
  6. ; default root directory
  7.  
  8. Set DefaultDir "work:tpp"
  9.  
  10. ; set some internal flags
  11. Set ARexxIsInstalled Yes
  12. Set PaxTeXIsInstalled Yes
  13. Set MakeIndexIsInstalled Yes
  14. Set Update No
  15. Set LHAbin "c/LHA -q -m -a x"
  16. Set LangArc TPPEnglish.lha
  17. Set GlobArc TPPGlobal.lha
  18.  
  19. Lab Start
  20.  
  21. ; get the root directory of `TeXt Plus Professional'
  22.  
  23. Echo "TeXt Plus Professional V4.10*n"
  24.  
  25. Echo "If this is an update from 4.00 to 4.10,"
  26. Echo "*.Config and *.parse files are not"
  27. Echo "overwritten.*n"
  28.  
  29. Echo "Please, enter a name for the TeXt"
  30. Echo "Plus Professional root-directory."
  31. Echo "Directory (<Return> = $DefaultDir) ? " NoLine
  32.  
  33. ; unset previous value
  34.  
  35. UnSet Directory
  36.  
  37. ; get target directory
  38.  
  39. Set >NIL: Directory ?
  40.  
  41. ; If only <Return> has been pressed, use <DefaultDir>
  42.  
  43. If "$Directory" EQ "*$Directory"
  44.         Set Directory $DefaultDir
  45. EndIf
  46.  
  47. ; remember the original path
  48.  
  49. Set OrigDir $Directory
  50.  
  51. ; check wether a '/' is to be appended to the directory name
  52.  
  53. FailAt 21
  54.  
  55. Assign >NIL: ${Directory} Exists
  56.  
  57. If FAIL
  58.     FailAt 10
  59.  
  60.     ; directory already exists
  61.  
  62.     If NOT EXISTS $Directory
  63.         FailAt 21
  64.  
  65.         ; okay, try to make the directory
  66.  
  67.         MakeDir "$Directory"
  68.  
  69.         ; Das war nichts ...
  70.  
  71.         If FAIL
  72.             Echo "*NUnable to make $Directory"
  73.  
  74.             FailAt 10
  75.  
  76.             ; back where we started
  77.  
  78.             Skip Back Start
  79.         EndIf
  80.     EndIf
  81.  
  82.     ; append a '/' to the directory-name
  83.  
  84.     Set Temp "$Directory/"
  85.  
  86.     Set Directory $Temp
  87.  
  88.     UnSet Temp
  89. EndIf
  90.  
  91. ; Fist all english programs are installed
  92.  
  93. ; unpack main binaries
  94.  
  95. $LHAbin $LangArc bin/TeXtPlusProfessional(.info|%) "${Directory}"
  96.  
  97. ; unpack documentation
  98.  
  99. $LHAbin $LangArc doc/#? "${Directory}"
  100.  
  101. Set DocDefaultDir "S:"
  102.  
  103. Lab DocStart
  104.  
  105. ; Where to place 'TPP.guide'?
  106.  
  107. Echo "*NPlease, enter the directory-name, where"
  108. Echo "the HyperText-documentation is to be installed to."
  109. Echo "Directory (<Return> = $DocDefaultDir) ? " NoLine
  110.  
  111. ; unset previously set value
  112.  
  113. UnSet DocDirectory
  114.  
  115. ; get target directory
  116.  
  117. Set >NIL: DocDirectory ?
  118.  
  119. ; if only <Return> has been pressed, use <DocDefaultDir>
  120.  
  121. If "$DocDirectory" EQ "*$DocDirectory"
  122.         Set DocDirectory $DocDefaultDir
  123. EndIf
  124.  
  125. ; check wether a '/' is to be appended to the directory name
  126.  
  127. FailAt 21
  128.  
  129. Assign >NIL: ${DocDirectory} Exists
  130.  
  131. If FAIL
  132.     FailAt 10
  133.  
  134.     ; directory already exists?
  135.  
  136.     If NOT EXISTS $DocDirectory
  137.         FailAt 21
  138.  
  139.         ; okay, try to make a directory
  140.  
  141.         MakeDir "$DocDirectory"
  142.  
  143.         ; failed
  144.  
  145.         If FAIL
  146.             Echo "*NUnable to make $DocDirectory"
  147.  
  148.             FailAt 10
  149.  
  150.             ; back where be started
  151.  
  152.             Skip Back DocStart
  153.         EndIf
  154.     EndIf
  155. EndIf
  156.  
  157. ; copy hypertext documentation
  158. Copy ${Directory}doc/TPP.guide(.info|%) $DocDirectory Quiet Clone
  159. ; and delete
  160. Delete >NIL: ${Directory}doc/TPP.guide(.info|%)
  161.  
  162. ; copy handler
  163. $LHAbin $LangArc l/TeXtPlus-Handler L:
  164.  
  165. ; install configuration files
  166. ; save old configration files
  167. If $Update EQ Yes
  168.     If Exists ${Directory}config
  169.         Rename >NIL: ${Directory}config ${Directory}config.old
  170.     Endif
  171. Endif
  172.  
  173. ; install
  174. $LHAbin $LangArc config/#? ${Directory}
  175.  
  176. ; ------------------------------------------------------------
  177.  
  178. ; install all global files
  179.  
  180. ; save old parse files
  181. If $Update EQ Yes
  182.     If Exists ${Directory}parse
  183.         Rename >NIL: ${Directory}parse ${Directory}parse.old
  184.     Endif
  185. Endif
  186.  
  187. ; decrunch everything
  188. $LHAbin $GlobArc #? ${Directory}
  189.  
  190. ; copy the readme file
  191. Copy ReadMe(.info|%) ${Directory}doc Quiet Clone
  192.  
  193. ; copy the history file
  194. Copy History(.info|%) ${Directory}doc Quiet Clone
  195.  
  196. ; Copy Nico François' powerpacker.library (35.344) and
  197. ; reqtools.library (38.961)
  198. ; They are only installed if no newer version is
  199. ; already installed
  200.  
  201. FailAt 21
  202.  
  203. Version >NIL: reqtools.library 38 961
  204. If Warn
  205.     Copy ${Directory}libs/reqtools.library libs: Quiet Clone
  206. endif
  207.  
  208. Version >NIL: powerpacker.library 35 344
  209. If Warn
  210.     Copy ${Directory}libs/powerpacker.library libs: Quiet Clone
  211. endif
  212.  
  213. ; and clean up
  214. Delete >NIL: ${Directory}libs All
  215.  
  216. ; is there a 'rexx:'-directory
  217.  
  218. If NOT EXISTS REXX:
  219.  
  220.     ; unfortunately not
  221.  
  222.     Echo "*NThere is no REXX:-directory!"
  223.     Echo "The ARexx-macros are not going to be installed."
  224.     Echo "If you nevertheless want to install them, you"
  225.     Echo "have to invoke this script for a second time,"
  226.     Echo "AFTER you have installed ARexx!"
  227.     Echo "Working with TPP without ARexx is not sensible!"
  228.  
  229.     Set ARexxIsInstalled No
  230.  
  231. EndIf
  232.  
  233. ; not everybody gets macros ...
  234.  
  235. If NOT $ARexxIsInstalled EQ No
  236.  
  237.     ; copy the arexx macros
  238.     Copy ${Directory}rexx/tpl rexx:tpl All Quiet Clone
  239.     Copy ${Directory}rexx/#?.tpl rexx: All Quiet Clone
  240.     Copy ${Directory}rexx/#?.sd rexx: All Quiet Clone
  241.  
  242.     ; and clean up
  243.     Delete >NIL: ${Directory}rexx All
  244.  
  245. EndIf
  246.  
  247. ; Is PaxTeX installed?
  248.  
  249. IF NOT EXISTS TeX:macros
  250.  
  251.     ; unfortunately not
  252.  
  253.     Echo "*NThere is no directory 'TeX:macros'!"
  254.     Echo "The TeX-macros are not going to be installed."
  255.     Echo "If you nevertheless want to install them, you"
  256.     Echo "have to invoke this script for a second time,"
  257.     Echo "AFTER you have installed PasTeX!"
  258.     Echo "You cannot compile or print documents without"
  259.     Echo "the TeX-macros!"
  260.  
  261.     Set PasTeXIsInstalled No
  262.  
  263. EndIf
  264.  
  265. ; Without TeX we are lost
  266.  
  267. If NOT $PasTeXIsInstalled EQ No
  268.  
  269.     ; copy the tex-macros
  270.     Copy ${Directory}tex/macros TeX:macros All Quiet Clone
  271.  
  272.     ; and clean up
  273.     Delete >NIL: ${Directory}tex/macros All
  274.  
  275. EndIf
  276.  
  277. ; Can MakeIndex be installed?
  278.  
  279. IF NOT EXISTS TeX:bin
  280.  
  281.     ; unfortunately not
  282.  
  283.     Echo "*NThere is no directory 'TeX:bin'!"
  284.     Echo "MakeIndex is not installed."
  285.     Echo "If you nevertheless want to install it, you"
  286.     Echo "have to invoke this script for a second time,"
  287.     Echo "AFTER you have installed PasTeX!"
  288.     Echo "You create a sorted index without MakeIndex!*n"
  289.  
  290.     Set MakeIndexIsInstalled No
  291.  
  292. EndIf
  293.  
  294. ; lost again?
  295.  
  296. If NOT $MakeIndexIsInstalled EQ No
  297.  
  298.     ; copy MakeIndex
  299.     Copy ${Directory}tex/bin/#? TeX:bin All Quiet Clone
  300.  
  301.     ; and clean up
  302.     Delete >NIL: ${Directory}tex/bin All
  303.  
  304. EndIf
  305.  
  306. ; this is the end of the script as I know it ...
  307.  
  308. Echo "*NTeXt Plus Professional has been installed."
  309. Echo "You only have to add the following line"
  310. Echo "to your S:Startup-Sequence or S:User-Startup:"
  311.  
  312. Echo "*NAssign TPP: $OrigDir"
  313.  
  314. ; bitch a bit
  315. IF $ARexxIsInstalled EQ No
  316.  
  317. Echo "*NDo not forget to install the ARexx macros!"
  318.  
  319. EndIf
  320.  
  321. IF $PasTeXIsInstalled EQ No
  322.  
  323. Echo "*NDo not forget to install the PasTeX macros!"
  324.  
  325. EndIf
  326.  
  327. IF $MakeIndexIsInstalled EQ No
  328.  
  329. Echo "*NDo not forget to install MakeIndex!"
  330.  
  331. EndIf
  332.  
  333. ; execute the assign for prophylactical reasons
  334. Assign >NIL: TPP: "$OrigDir"
  335.  
  336. Echo "*NEnjoy TeXt Plus Professional!"
  337.